home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / STEST.BAS < prev    next >
BASIC Source File  |  1993-05-04  |  346b  |  19 lines

  1. ' This QuickBASIC program uses the Load and
  2. ' Store routines defined in STORE.ASM
  3. '
  4. ' Compile with:
  5. '
  6. '   WASM store store.obj
  7. '   BC stest;
  8. '   LINK stest+store;
  9.  
  10. DECLARE SUB Store (BYVAL v%)
  11. DECLARE FUNCTION Load%
  12.  
  13. i% = INT(RND * 32001)
  14. PRINT "The number stored is"; i%
  15. Store (i%)
  16. PRINT "The number retrieved is"; Load%
  17.  
  18. END
  19.